inherited fDespesaFixas: TfDespesaFixas
  Left = 151
  Top = 122
  Caption = 'Despesas Fixas do Im'#243'vel'
  ClientHeight = 462
  ClientWidth = 659
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 228
    Top = 54
    Width = 59
    Height = 16
    Caption = 'Despesa '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel [1]
    Left = 460
    Top = 55
    Width = 31
    Height = 16
    Caption = 'Parc.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel [2]
    Left = 511
    Top = 55
    Width = 32
    Height = 16
    Caption = 'Valor'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  inherited StsBr: TStatusBar
    Top = 443
    Width = 659
  end
  inherited Panel2: TPanel
    Top = 402
    Width = 659
    TabOrder = 2
    inherited btnSair: TBitBtn
      Left = 379
      Top = 5
    end
    inherited btnCancelar: TBitBtn
      Left = 288
      Top = 5
    end
    inherited btnexcluir: TBitBtn
      Left = 288
      Top = 5
    end
    inherited btngravar: TBitBtn
      Left = 195
      Top = 5
    end
    inherited btnIncluir: TBitBtn
      Left = 195
      Top = 5
      Visible = False
    end
    inherited btnProcurar: TBitBtn
      Left = 6
      Top = -100
      Visible = False
    end
  end
  inherited Panel3: TPanel
    Width = 659
    TabOrder = 3
    inherited DBTextDestaque1: TDBText
      Top = -100
    end
    inherited DBTextDestaque: TDBText
      Top = -100
    end
    object Label7: TLabel
      Left = 105
      Top = 7
      Width = 76
      Height = 29
      Caption = 'Label7'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 104
      Top = 6
      Width = 76
      Height = 29
      Caption = 'Label8'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -24
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 8
      Top = 12
      Width = 93
      Height = 20
      Caption = 'Propriet'#225'rio..:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object DBLookupComboBox1: TDBLookupComboBox [6]
    Left = 228
    Top = 70
    Width = 231
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    KeyField = 'COD_CONTAS'
    ListField = 'DESCRICAO'
    ListSource = DataSource1
    ParentFont = False
    TabOrder = 0
    OnKeyPress = FormKeyPress
  end
  object DBGrid1: TDBGrid [7]
    Left = 8
    Top = 96
    Width = 594
    Height = 265
    TabStop = False
    DataSource = DtSrc
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Descri'#231#227'o'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GRUPO'
        Title.Caption = 'Grupo'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PARCELAS_REC'
        Title.Caption = 'Parc.'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RECEITA_DESPESA'
        Title.Caption = 'Receita / Despesa'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR_MES'
        Title.Caption = 'Valor '
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LANCADO'
        Title.Caption = 'Lan'#231'ado ?'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DTALANCADO'
        Title.Caption = 'Data'
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator [8]
    Left = 143
    Top = 368
    Width = 372
    Height = 25
    DataSource = DtSrc
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 5
  end
  object EditParcela: TJvSpinEdit [9]
    Left = 460
    Top = 70
    Width = 50
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object JvCalcEdit1: TJvCalcEdit [10]
    Left = 510
    Top = 70
    Width = 91
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    DecimalPlacesAlwaysShown = False
  end
  object BitBtn1: TBitBtn [11]
    Left = 604
    Top = 71
    Width = 52
    Height = 25
    Caption = 'Gerar'
    TabOrder = 8
    OnClick = BitBtn1Click
  end
  object ComboBox1: TComboBox [12]
    Left = 8
    Top = 69
    Width = 130
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 9
    Text = 'Inquilino'
    OnChange = ComboBox1Change
    Items.Strings = (
      'Inquilino'
      'Propriet'#225'rio')
  end
  object ComboBox2: TComboBox [13]
    Left = 140
    Top = 69
    Width = 87
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 10
    Text = 'Despesa'
    OnChange = ComboBox1Change
    Items.Strings = (
      'Despesa'
      'Receita')
  end
  object BitBtn2: TBitBtn [14]
    Left = 604
    Top = 96
    Width = 52
    Height = 25
    Caption = 'Lan'#231'ar'
    TabOrder = 11
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn [15]
    Left = 604
    Top = 121
    Width = 52
    Height = 25
    Caption = 'Cancela'
    TabOrder = 12
    OnClick = BitBtn3Click
  end
  inherited DtSrc: TDataSource
    Left = 449
    Top = 13
  end
  object DataSource1: TDataSource
    DataSet = cds_p_conta
    Left = 518
    Top = 284
  end
  object dsp_p_conta: TDataSetProvider
    DataSet = dst_p_conta
    UpdateMode = upWhereKeyOnly
    Left = 460
    Top = 283
  end
  object cds_p_conta: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pgrupo'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'rd'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_p_conta'
    Left = 489
    Top = 283
    object cds_p_contaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_p_contaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_p_contaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_p_contaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object dst_p_conta: TSQLDataSet
    CommandText = 
      'select * from PLANO_CONTAS '#13#10'where GRUPO = :pgrupo and RECEITA_D' +
      'ESPESA = :rd '#13#10'order by DESCRICAO'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pgrupo'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'rd'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 432
    Top = 283
    object dst_p_contaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_p_contaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_p_contaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_p_contaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
end
